home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / rmxmain.spr < prev    next >
Encoding:
Text File  |  1994-07-05  |  9.6 KB  |  333 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 07/05/94             RMXMAIN.SPR               16:56:20 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *      RMXMAIN/Windows Databases, Indexes, Relations      
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF USED("roster")
  45.     SELECT roster
  46.     SET ORDER TO 0
  47. ELSE
  48.     SELECT 0
  49.     USE (LOCFILE("roster.dbf","DBF","Where is roster?"));
  50.         AGAIN ALIAS roster ;
  51.         ORDER 0
  52. ENDIF
  53.  
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       *               Windows Window definitions                
  58. *       *                                                         
  59. *       *********************************************************
  60. *
  61.  
  62. IF NOT WEXIST("main") ;
  63.     OR UPPER(WTITLE("MAIN")) == "MAIN.PJX" ;
  64.     OR UPPER(WTITLE("MAIN")) == "MAIN.SCX" ;
  65.     OR UPPER(WTITLE("MAIN")) == "MAIN.MNX" ;
  66.     OR UPPER(WTITLE("MAIN")) == "MAIN.PRG" ;
  67.     OR UPPER(WTITLE("MAIN")) == "MAIN.FRX" ;
  68.     OR UPPER(WTITLE("MAIN")) == "MAIN.QPR"
  69.     DEFINE WINDOW main ;
  70.         AT  1.520, 16.000  ;
  71.         SIZE 20.690,62.500 ;
  72.         TITLE "RE/MAX DATABASE" ;
  73.         FONT "MS Sans Serif", 17 ;
  74.         FLOAT ;
  75.         CLOSE ;
  76.         MINIMIZE ;
  77.         SYSTEM ;
  78.         COLOR RGB(,,,255,255,255) ;
  79.         ICON FILE LOCFILE("TUTORIAL\REGION.ICO","ICO", ;
  80.             "Where is region?")
  81.     MOVE WINDOW main CENTER
  82. ENDIF
  83.  
  84. IF NOT WEXIST("roster") ;
  85.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.PJX" ;
  86.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.SCX" ;
  87.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.MNX" ;
  88.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.PRG" ;
  89.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.FRX" ;
  90.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.QPR"
  91.     DEFINE WINDOW roster ;
  92.         AT 4.320, 55.300 ;
  93.         SIZE 32.000,61.800 ;
  94.         TITLE "Roster" ;
  95.         FONT "MS Sans Serif", 8 ;
  96.         FLOAT ;
  97.         CLOSE ;
  98.         MINIMIZE ;
  99.         SYSTEM ;
  100.         COLOR RGB(,,,255,255,255)
  101. ENDIF
  102.  
  103.  
  104. *       *********************************************************
  105. *       *                                                         
  106. *       *         RMXMAIN/Windows Setup Code - SECTION 2          
  107. *       *                                                         
  108. *       *********************************************************
  109. *
  110.  
  111. #REGION 1
  112.  
  113. M.Database = 'Roster'
  114.  
  115. CLOSE DATABASES
  116.  
  117. PRIVATE M.Count
  118.  
  119. *********ROSTER***************
  120. use index
  121. COUNT TO M.Count
  122. DIMENSION fieldnms(M.Count,1)
  123. COPY TO ARRAY fieldnms
  124. =ASORT(fieldnms)
  125.  
  126. M.Selectfld = 'Associate Name'
  127. Close databases
  128. *******************************
  129.  
  130. *******CIVIC*******************
  131. CLOSE DATABASES
  132. Use Civic
  133. COUNT TO M.Count
  134. DIMENSION ACivic(M.Count,1)
  135. COPY TO ARRAY ACivic
  136. =ASORT(ACivic)
  137. =ADEL(ACivic, 1)
  138. =ADEL(ACivic, M.Count)
  139.  
  140. M.Civicslct = ' '
  141. Close databases
  142. ********************************
  143.  
  144. ***********COMM******************
  145.  
  146. use Comm
  147. COUNT TO M.Count
  148. DIMENSION AComm(M.Count,1)
  149. COPY TO ARRAY AComm
  150. =ASORT(AComm)
  151.  
  152. M.CommSlct = ' '
  153. Close databases
  154. *********************************
  155.  
  156. ***********Hobby****************
  157. USE Hobby
  158. COUNT TO M.Count
  159. DIMENSION AHobbie(M.Count,1)
  160. COPY TO ARRAY AHobbie
  161. =ADEL(AHobbie, 1)
  162. * =ASORT(AHobbie)
  163.  
  164. M.HobbySlct = ' '
  165. Close databases
  166. *********************************
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173. *       *********************************************************
  174. *       *                                                         
  175. *       *              RMXMAIN/Windows Screen Layout              
  176. *       *                                                         
  177. *       *********************************************************
  178. *
  179.  
  180. #REGION 1
  181. IF WVISIBLE("main")
  182.     ACTIVATE WINDOW main SAME
  183. ELSE
  184.     ACTIVATE WINDOW main NOSHOW
  185. ENDIF
  186. @ 10.310,2.000 SAY "Select a Database:" ;
  187.     FONT "MS Sans Serif", 15 ;
  188.     STYLE "T" ;
  189.     COLOR RGB(0,0,128,255,0,0)
  190. @ 12.000,6.000 GET M.Database ;
  191.     PICTURE "@*VN Roster;Suppliers" ;
  192.     SIZE 2.615,16.500,0.769 ;
  193.     DEFAULT 1 ;
  194.     FONT "MS Sans Serif", 8 ;
  195.     STYLE "B" ;
  196.     VALID _qrg10b2vl()
  197. @ 18.000,51.000 GET M.Exit ;
  198.     PICTURE "@*HN Exit" ;
  199.     SIZE 2.308,14.167,0.667 ;
  200.     DEFAULT 1 ;
  201.     FONT "MS Sans Serif", 8 ;
  202.     STYLE "B"
  203.  
  204.  
  205.  
  206.  
  207. *       *********************************************************
  208. *       *                                                         
  209. *       *              ROSTER/Windows Screen Layout               
  210. *       *                                                         
  211. *       *********************************************************
  212. *
  213.  
  214. #REGION 2
  215. IF WVISIBLE("roster")
  216.     ACTIVATE WINDOW roster SAME
  217. ELSE
  218.     ACTIVATE WINDOW roster NOSHOW
  219. ENDIF
  220. @ 5.615,2.600 GET M.Selectfld ;
  221.      PICTURE "@&N" ;
  222.     FROM fieldnms ;
  223.     SIZE 20.769,31.000 ;
  224.     DEFAULT 1 ;
  225.     FONT "MS Sans Serif", 8 ;
  226.     VALID _qrg10b37e()
  227. @ 2.231,2.400 SAY "Select a field to search by:" ;
  228.     FONT "MS Sans Serif", 14 ;
  229.     STYLE "T"
  230. @ 6.385,38.400 SAY "Boolean Search:" ;
  231.     FONT "MS Sans Serif", 8 ;
  232.     STYLE "T"
  233. @ 8.385,38.400 GET M.Boolean ;
  234.     PICTURE "@*RVN And;Or;Not" ;
  235.     SIZE 1.308,7.833,0.000 ;
  236.     DEFAULT 1 ;
  237.     FONT "MS Sans Serif", 8 ;
  238.     STYLE "BT"
  239. @ 5.538,36.000 TO 13.000,57.800 ;
  240.     PEN 1, 8
  241.  
  242. IF NOT WVISIBLE("roster")
  243.     ACTIVATE WINDOW roster
  244. ENDIF
  245. IF NOT WVISIBLE("main")
  246.     ACTIVATE WINDOW main
  247. ENDIF
  248.  
  249.  
  250. READ CYCLE
  251.  
  252. RELEASE WINDOW main
  253. RELEASE WINDOW roster
  254.  
  255. *       *********************************************************
  256. *       *                                                         
  257. *       *                Windows Closing Databases                
  258. *       *                                                         
  259. *       *********************************************************
  260. *
  261.  
  262. IF USED("roster")
  263.     SELECT roster
  264.     USE
  265. ENDIF
  266.  
  267. SELECT (m.currarea)
  268.  
  269.  
  270. #REGION 0
  271.  
  272. SET READBORDER &rborder
  273.  
  274. IF m.talkstat = "ON"
  275.     SET TALK ON
  276. ENDIF
  277. IF m.compstat = "ON"
  278.     SET COMPATIBLE ON
  279. ENDIF
  280.  
  281.  
  282. *       *********************************************************
  283. *       *                                                         
  284. *       * _QRG10B2VL           M.Database VALID                   
  285. *       *                                                         
  286. *       * Function Origin:                                        
  287. *       *                                                         
  288. *       * From Platform:       Windows                            
  289. *       * From Screen:         RMXMAIN,     Record Number:    4   
  290. *       * Variable:            M.Database                         
  291. *       * Called By:           VALID Clause                       
  292. *       * Object Type:         Push Button                        
  293. *       * Snippet Number:      1                                  
  294. *       *                                                         
  295. *       *********************************************************
  296. *
  297. FUNCTION _qrg10b2vl     &&  M.Database VALID
  298. #REGION 1
  299. DO CASE
  300.     CASE M.Database = 1
  301.         ACTIVATE WINDOW roster
  302. ENDCASE
  303.  
  304. *       *********************************************************
  305. *       *                                                         
  306. *       * _QRG10B37E           M.Selectfld VALID                  
  307. *       *                                                         
  308. *       * Function Origin:                                        
  309. *       *                                                         
  310. *       * From Platform:       Windows                            
  311. *       * From Screen:         ROSTER,     Record Number:    2    
  312. *       * Variable:            M.Selectfld                        
  313. *       * Called By:           VALID Clause                       
  314. *       * Object Type:         List                               
  315. *       * Snippet Number:      2                                  
  316. *       *                                                         
  317. *       *********************************************************
  318. *
  319. FUNCTION _qrg10b37e     &&  M.Selectfld VALID
  320. #REGION 2
  321. DO CASE
  322.     CASE Selectfld = 'Civic Activities'
  323. *        SHOW GETS ENABLE ONLY WINDOW Civic
  324.         ACTIVATE WINDOW Civic TOP
  325.     CASE Selectfld = 'Commercial Subspecialties'
  326.         SHOW WINDOWS GET ENABLE WINDOW COMM
  327.     CASE Selectfld = 'Hobbies/Interests'
  328.         SHOW WINDOWS GET ENABLE WINDOW HOBBIE
  329.     CASE Selectfld = 'Micsellaneous'
  330.         SHOW WINDOWS GET ENABLE WINDOW MISC
  331.     CASE Selectfld = 'Associate Name'
  332.         SHOW WINDOWS GET ENABLE WINDOW NAME    
  333. ENDCASE